home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / gtscr12.arc / PURSUIT2.SCR < prev    next >
Encoding:
Text File  |  1987-05-31  |  1.6 KB  |  38 lines
  1. CLEAR
  2. writeln "            ╔═════════════════════════════════════════════════════╗ "
  3. writeln "            ║                PC Pursuit City Menu                 ║ "
  4. writeln "            ╠═════════════════════════════════════════════════════╣ "
  5. writeln "            ║ 201 - Newark               216 - Cleveland          ║ "
  6. writeln "            ║ 202 - Washington           305 - Miami              ║ "
  7. writeln "            ║ 206 - Seattle              408 - San Jose           ║ "
  8. writeln "            ║ 212 - New York City        414 - Milwaukee          ║ "
  9. writeln "            ║ 213 - Los Angeles          503 - Portland           ║ "
  10. writeln "            ║ 214 - Dallas               602 - Phoenix            ║ "
  11. writeln "            ║ 215 - Philadelphia         612 - Minneapolis        ║ "
  12. writeln "            ║ 303 - Denver               801 - Salt Lake City     ║ "
  13. writeln "            ║ 312 - Chicago              813 - Tampa              ║ "
  14. writeln "            ║ 313 - Detroit              818 - Glendale           ║ "
  15. writeln "            ║ 404 - Atlanta              919 - Res. Tri. Park     ║ "
  16. writeln "            ║ 415 - San Fransisco        713 - Houston            ║ "
  17. writeln "            ║ 617 - Boston        x = HANGUP     n = NetExchange  ║ "
  18. writeln "            ╚═════════════════════════════════════════════════════╝ "
  19. write   "                       Enter Area Code of City --> ___"
  20. WRITE    ""
  21. READLN V1
  22. FLUSH
  23. CASE %1 OF
  24.  ~ x
  25.    hang-up
  26.    writeln "You are logged off..."
  27.    QUIT
  28.  ~ n
  29.    chain "net.scr"
  30.    quit
  31. ESAC
  32. CHAIN "PURSUIT3.SCR"
  33. case %9 of
  34.  ~ CONNECT
  35.    quit
  36. esac
  37. CYCLE 100 TIMES
  38.